 	area dtob, code, readonly
	export dtob
	
	ldr r5, [r0]
	ldr r4, [r0]
	mov r6, #1
	mov r7, #0
loop
	cmp r5, #0
	beq exit
	ands r5, r5, #0x01
	;cmp r5, #1
	;streq r7, [r1]
	;str r6, [r1]
	str r5, [r1]
	add r1, r1,#4
	mov r4, r4, lsr #1
	mov r5, r4
	b loop
exit
	mov pc, lr
	end